home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / bbs / lord2b7.zip / ARRIS.REF < prev    next >
Text File  |  1997-06-05  |  20KB  |  1,051 lines

  1. ;ArrisVille & friends ref file
  2. @#castle
  3. ;Corin's castle
  4. @do moveback
  5. @busy
  6. @offmap
  7. @show
  8. `r0`c  `%`r1  The Royal Palace  `r0
  9.  
  10.   `2The Arrisville castle is a picturesque stone monument that pays
  11.   homage to perseverance.  Even though his mother and father have been
  12.   missing for nearly a year, `0Prince Corin`2 has kept this city strong.
  13.  
  14. @do write
  15. `x`x
  16. @do `v01 is 1
  17. @choice
  18. Ask for an audience with Corin
  19. Leave
  20. @if responce is 1 then do
  21.   @begin
  22.   @if `p07 < -50 then do
  23.    @begin
  24.   @show
  25. `\`\  `2The prince refuses to grant you an audience.  Apparently he's heard
  26.   of you.
  27. `\`k
  28.    @drawmap
  29.    @update
  30.    @closescript
  31.    @end
  32.   @do `v01 is 1
  33.   @show
  34. `\`\  `2The prince agrees to see you.
  35. `\`k
  36. @label ca1
  37. @do `v01 is 1
  38. @show
  39. `r0`c  `%`r1  Audience With The Prince `r0
  40.  
  41.   `0"And how can I help you today, `n`0?" `2the prince asks.
  42.  
  43. @do write
  44. `x`x
  45. @choice
  46. Tell me of rumors you've heard
  47. Conduct business with Corin
  48. +`t17 4 -`t17 5 I must ask a favor of you, dear prince.
  49. +`t17 5 -`t17 6 Prince.. I am back.
  50. >`i72 0 I have the Gryphon Moon!
  51. End the audience
  52. @if responce is 5 then do
  53.   @begin
  54.   @show
  55. `\`\  `0"Incredible work!" `2the prince compliments you warmly.
  56.  
  57. `k
  58.   @do goto ca1
  59.   @end
  60. @if responce is 4 then do
  61.  @begin
  62. @show
  63. `\`\  `0"What happened over there?!" `2Corin demands.
  64.  
  65.   `$"Terrible things....  I barely escaped with my life.  But I did not
  66.   accomplish what I came do to, so I must ask yet another boon of you..."
  67.  
  68. `k  `2A few days later you are dropped off at the `4Dragon Tooth Clan's`2
  69.   headquarters.
  70.  
  71. `k
  72. @do `i67 is 1
  73. @do map is 705
  74. @do x is 29
  75. @do y is 11
  76. @loadmap &map
  77. @drawmap
  78. @update
  79. @closescript
  80.  
  81.  @end
  82.  
  83. @if responce is 3 then do
  84.   @begin
  85.   @show
  86. `\`\  `0"Anything!  I have heard of your efforts to stop the Dragon Tooth Clan."`2
  87.   the prince tells you excitedly.
  88.  
  89. `k  `$"Can one of your great ships take me to our enemies lair?  You know the
  90.   island of which I speak, don't you."
  91.  
  92. `k  `0"Yes, yes I do." `2Corin tells you somberly.  `0"You may leave tommorow,
  93.   for now, you must rest."
  94.  
  95. `k`c  `r1  `%Goodnight  `r0
  96. `\  `2Palace servants take you to a most wonderful room - ornamental rugs
  97.   cover much of the floors and walls, many of which contain scenes of men
  98.   doing battle with dragons and other beasts.
  99.  
  100.   Your bed is large and soft.  The silk sheets feel like clouds against your
  101.   skin... clouds.. this seems to follow you into your dreams.
  102.  
  103. `k`c  `r1  `%All aboard!  `r0
  104.  
  105.   `2After a huge breakfast the prince accompanies you to the docks.
  106.  
  107. `k  `0"I wish you great success in whatever it is you must do.  I would that
  108.   you would take this gift, `n`0."
  109.  
  110. `k  `%THE PRINCE GIVES YOU A DISGUISE!
  111.  
  112. `k  `2The crew is quiet during the journey.  The silence is unnerving.
  113.  
  114. `k  You finally arrive.
  115.  
  116. `k
  117. @do `i67 is 1
  118. @bitset `t17 5 1
  119. @do map is 705
  120. @do x is 29
  121. @do y is 11
  122. @loadmap &map
  123. @drawmap
  124. @update
  125. @closescript
  126.   @end
  127.  
  128. @if responce is 1 then do
  129.   @begin
  130.   @if bitcheck `t17 7 1 then do
  131.     @begin
  132.   @show
  133. `\`\  `2Corin's face becomes earnest.  `0"This are much better now.  You have
  134.   done this country a great service by taking the `%Gryphon Moon`0.  If you
  135.   ever need anything, let me know."
  136. `\`k
  137.   @do goto ca1
  138.     @end
  139.  
  140.   @show
  141. `\`\  `2Corin's face becomes earnest.  `0"To be honest, there is much unrest.
  142.   The people are afraid... afraid of the `4Dragon Tooth Clan`0 and the threats
  143.   they make.  I have refused to pay the tribute they demand and many fear they
  144.   will retaliate soon."
  145. `\`k
  146.   @do goto ca1
  147.   @end
  148.  
  149.   @if responce is 2 then do
  150.     @begin
  151.     @do `p20 is 6
  152.     @run getquest in quest.ref
  153.     @end
  154.  
  155.   @end
  156.  
  157. @drawmap
  158. @update
  159.  
  160. @#ghost
  161. ;The ghost quest, that haunts the .... :)
  162. @if bitcheck `t14 4 0 then do
  163.   @begin
  164. @if `i61 > 0 then do
  165.   @begin
  166.   @drawmap
  167.   @update
  168.   @closescript
  169.   @end
  170. @busy
  171. @show
  172. `r0`c  `%`r1  A Ghostly Image  `r0
  173.  
  174.   `3Walking down the halls of the inn you begin to hear a quiet moaning.
  175.   You look around but see nothing.  The sound seems to be coming from a
  176.   wall!  You move closer to hear more, the moaning seems to be getting
  177.   louder.  Suddenly you notice a light, but not from a candle, it seems
  178.   to be a brilliant blue.
  179.  
  180.   A transparent blue body floats out from the wall, it's a man with a
  181.   dismal look on his face moaning loudly.  You're both scared an
  182.   exhilarated at the same time.  `%Who is this Ghost?`3
  183.  
  184. @do write
  185. `x`x
  186. @do `v01 is 1
  187. @choice
  188. Attempt to talk to it
  189. Fight it
  190. Run
  191. @if response is 1 then do
  192.   @begin
  193.   @do `i61 is 1
  194.   @show
  195. `\`\  `%You fight back your fear and reach out towards the apparition.
  196.   As you do so the figure stops its moaning and looks to you.
  197.   `$"Who .. who are you?"  `%you ask.
  198.   `%"A person .. like yourself,"  `3he replies.  `%"I too quested for the
  199.   Red Dragon, back when we were sure of his existance.  I believed I had
  200.   found my way to one of his layers.  Here in this land, in the northeast
  201.   a cave in the water.  I went in hoping to find the beast, but was betrayed
  202.   by a companion."
  203.  
  204.   `%"You may right my death though. `3Take this and find the cave, honor my
  205.   body..."
  206.  
  207.   `%His image fades and lying where he was is a small silver ring.
  208. `\`k
  209.   @end
  210. @if response is 2 then do
  211.   @begin
  212.   @pauseoff
  213.   @do `p07 - 1
  214.   @show
  215. `\`\  `%Your instincts take over as you pull out your s&weapon.  The ghost
  216.   seems instantly aware of you.  It speaks ...
  217.   `3"Beware the path you choose warrior, it may not be as easy as you may
  218.   think ..."  `%and like that he's gone.
  219.  
  220.   `bYOUR ALIGNMENT GOES DOWN BY ONE!`b
  221. `\`k
  222.   @end
  223. @end
  224. @drawmap
  225. @update
  226.  
  227. @#sh1
  228. ;Sosen house 1 person
  229. @do moveback
  230. @do `v01 is 1
  231. @show
  232. `r0`c  `r1  `%Talking to Basil  `r0
  233.  
  234.   `2A slightly evil looking man encourages you to sit.
  235.  
  236. @do write
  237. `x`x
  238. @choice
  239. Gossip
  240. Conduct business with Basil
  241. Leave
  242. @if responce is 2 then do
  243.   @begin
  244.   @do `p20 is 5
  245.   @run getquest in quest.ref
  246.   @end
  247.  
  248. @if responce is 1 then do
  249.   @begin
  250.    @do `p21 random 3 1
  251.    @if `p21 is 1 then do
  252.      @begin
  253.      @show
  254. `\`\  `0"Well.. I believe the Dragon Cult is telling the truth.  The Dragon
  255.   is alive and well and serves them.  You would do well to respect them."
  256. `\`k
  257.      @end
  258.  
  259.    @if `p21 is 2 then do
  260.      @begin
  261.      @show
  262. `\`\  `0"The Koshi people will kill you if you get too close.  Stay away from
  263.   where they live.  Me?  Of course I don't know where that is..."
  264. `\`k
  265.      @end
  266.  
  267.    @if `p21 is 3 then do
  268.      @begin
  269.      @show
  270. `\`\  `0"This town is small.  There ain't much business around here.. but I
  271.   have a few customers.. What do I sell? Don't EVER ask me that again!"
  272. `\`k
  273.      @end
  274.  
  275.   @do goto sh1
  276.   @end
  277.  
  278. @drawmap
  279. @update
  280.  
  281. @#kosign
  282. ;Sosen house 1 person
  283. @do moveback
  284. @do saybar
  285. `0Sign: `2<--- Koshi mountains.  Stay away from these sick people!
  286.  
  287. @#sh2
  288. ;Sosen house 2 person
  289. @do moveback
  290. @do saybar
  291. `0Matt Longsword: `2We Dragon Tooth members like to drink blood.  Do you?
  292.  
  293. @#sh3
  294. ;Sosen house 3 person
  295. @do moveback
  296. @do saybar
  297. `0Wise Child: There is a music shop west of Arrisville..`2My house `bsucks`2.  
  298.  
  299. @#sosstore
  300. @do moveback
  301. @offmap
  302. @busy
  303. @show
  304. `r0`c                      `r1  Sosen Village General Store  `r0
  305.  
  306.  
  307.  
  308.  
  309. @buymanager
  310. 26
  311. 32
  312. 33
  313. 58
  314. 59
  315. 60
  316. 40
  317. 5
  318. @drawmap
  319. @update
  320.  
  321. @#STORE
  322. ;The ArrisVille Store
  323. @do moveback
  324. @offmap
  325. @busy
  326. @show
  327. `r0`c                           `r1  ArrisVille Store  `r0
  328.  
  329.  
  330.  
  331.  
  332. @buymanager
  333. 58
  334. 59
  335. 60
  336. @drawmap
  337. @update
  338.  
  339. @#inn
  340. ;The ArrisVille (tm) Inn
  341. @do `v01 is 1
  342. @offmap
  343. @do moveback
  344. @show
  345. `r0`c  `%`r1  ArrisVille Inn  `r0
  346.  
  347.   `2The towered Inn looks very nice -  A refreshing change from what you're
  348.   used to in your travels.
  349.  
  350.   A well dressed man looks up from the front desk.
  351.  
  352.   `0"Good day s&sir, how may I help you?"`2
  353.   
  354.   You are holding `$$&money`2.
  355.  
  356. @do write
  357. `x`x
  358. @choice
  359. Get a room (`$$100`%)
  360. Leave
  361. @if response is 1 then do
  362.   @begin
  363.   @if money < 100 then do
  364.     @begin
  365.     @show
  366. `\`\`2  You are short on cash.  It's okay, someday you'll be able to stay
  367.   here...
  368.  
  369. `k
  370.     @drawmap
  371.     @update
  372.     @closescript
  373.     @end
  374.    @show
  375. `\`\  `2You give the man the cash.  He leads you inside...
  376. `\`k
  377.    @do money - 100
  378.    @do x is 21
  379.    @do y is 13  
  380.    @do map is 450
  381.    @loadmap 450
  382.    @drawmap
  383.    @update
  384.    @closescript
  385.   @end
  386.  
  387. @drawmap
  388. @update
  389.  
  390.  
  391. @#seth
  392. ;talking to seth (gosh, he rules!)
  393. @do moveback
  394. @do `v01 is 1
  395. @show
  396. `r0`c  `r1  `%The Music Shop  `r0
  397.  
  398.   `2The man looks up.  Somehow he looks so familiar..
  399.  
  400.   `0"What can I help you with, friend?" `2he asks.
  401.  
  402. @do write
  403. `x`x
  404. @choice
  405. Do I know you?
  406. -`t14 1 >`i07 0 Can you fix my flute?
  407. +`t14 1 -`t14 2 >`i07 0 Can you teach me how to play my flute?
  408. Leave
  409. @if responce is 3 then do
  410.   @begin
  411.   @show
  412. `\`\  `2The man agrees.  Half an hour later you have mastered TWO songs!
  413.  
  414. `k
  415.   @bitset `t14 2 1
  416.   @end
  417. @if responce is 2 then do
  418.   @begin
  419.   @show
  420. `\`\  `0"Hey there... look at this.  Can you fix it?  I've tried blowing it
  421.   and it don't work so hot," `2you ask.
  422.  
  423.   `2The man studies your flute for sometime.  He suddenly looks at you.
  424.   `0"Where did you find this?!!"
  425.  
  426. `k  `2You tell him.  He explains that there are only two of them in the
  427.   world - and he owns the other one.  The Trondhiem Flutes each contain
  428.   special powers.  If you know how to play them correctly...
  429.  
  430.   `$"So are you gonna fix it, sir?"
  431.  
  432. `k  `2The man laughs.  `0"It isn't broken!  You just didn't know how to play
  433.   it!"
  434.  
  435. `k
  436.   @bitset `t14 1 1
  437.   @do goto seth
  438.   @end
  439.  
  440. @if responce is 1 then do
  441.   @begin
  442.   @show
  443. `\`\  `0"No, no I don't think so.  I moved from Greentree a few years ago."
  444.  
  445.   `$"But I come from Stonebrook!  That is right next to you!!!" `2you exclaim.
  446.  
  447.   `0"Oh yeah?  Woah."  `2After a moment or so of uncomfortable silence you
  448.   decide to move on.
  449.  
  450. `k
  451.   @do goto seth
  452.   @end
  453.  
  454.  
  455.  
  456. @drawmap
  457. @update
  458.  
  459. @#sethsign
  460. @do moveback
  461. @do saybar
  462. `0Sign: `2<---- The Music Shop
  463.  
  464. @#heal
  465. @offmap
  466. @do moveback
  467. @do `v01 is 1
  468. @show
  469. `r0`c  `r1  ArrisVille Master Healing  `r0
  470.  
  471. `2  Master looks you over for wounds.
  472.  
  473. @do write
  474. `x`x
  475. @if `p02 < `p03 then do
  476.  @begin
  477. @do `p20 is `p03
  478. @do `p20 - `p02
  479. @do `p20 / 2
  480.  
  481.  
  482.  @show
  483. `0"You don't look so good, friend!  I'll fix ya up for `$`p20`0 gold, k?"
  484.  
  485. @do write
  486. `x`x
  487. @choice
  488. Heal yourself for `$$`p20`%. (you have `$$&money`%)
  489. Limp on out.
  490. @show
  491. `\
  492. @if response is 1 then do begin
  493.  @begin
  494.  @if money < `p20 then do
  495.   @begin
  496.   @show
  497.   `0"Sorry old s&boy, we don't do charity work here."
  498.  
  499.  @do write
  500. `x`x
  501.  @choice
  502. Well come on!  How am I supposed to make money when I can barely walk?
  503. Buddy, how 'bout a little compassion for once in your life freak!
  504. How 'bout some of your 'special' pills then?
  505. Yes sir.
  506. @show
  507.  
  508.  
  509. @if response is 4 then do
  510.  @begin
  511.  @show
  512.   `0"That's a good lad, now get along with you!" `2 he laughs.
  513.  
  514. `k
  515.  @end
  516.  
  517. @if response is 1 then do
  518.  @begin
  519.  @show
  520.   `0"Damn it, s&boy, be a s&man for once in your life!"`2 he yells.
  521.  
  522. `k
  523.  @end
  524. @if response is 2 then do
  525.  @begin
  526.  @show
  527.   `0"I cannot respect a man who doesn't work," `2Master informs you.
  528.  
  529. `k
  530.  @end
  531. @if response is 3 then do
  532.  @begin
  533.  @do `p02 = 1
  534.  @show
  535.   `0"Sure.  Take like uh.. these." `2 he snickers.
  536.  
  537.   `2You gulp down the weird black pills
  538.  
  539.   `4HIT POINTS GO DOWN TO 1.
  540.  
  541. `k
  542.  @end
  543.  
  544.   @drawmap
  545.   @update
  546.   @closescript
  547.   @end
  548.  
  549. @do money - `p20
  550. @do `p21 = `p03
  551. @do `p21 - `p02
  552. @do `p02 = `p03
  553. @show
  554.   `2You feel much better as `0`p21`2 hitpoints are restored.
  555.  
  556. `k
  557.   @end
  558.   @drawmap
  559.   @update
  560.   @closescript
  561. @end
  562.  
  563. @show
  564. `0"You have no ailments, come back later!" `2says Master.
  565.  
  566. `k
  567. @drawmap
  568. @update
  569.  
  570. @#bank
  571. @do `v01 is 1
  572. @offmap
  573. @do moveback
  574. @label bankstart
  575. @show
  576. `r0`c  `r1  `%5th Bank Of ArrisVille  `r0
  577.  
  578. `2  A young clerk eyes you nervously.
  579.  
  580. @if bank more 0 then do
  581.  @begin
  582.  @show
  583. `2  You are holding `$$&money`2, your account is at `$$&bank`2.
  584.  
  585.  @end
  586.  
  587. @if bank is 0 then do
  588.  @begin
  589.  @show
  590. `2  You currently don't have an account with them.
  591.  
  592.  @end
  593.  
  594. @do write
  595. `x`x
  596. @choice
  597. >&bank 0 Make a deposit.
  598. >&bank 0 Make a withdrawal.
  599. =&bank 0 Apply for an account here.
  600. Leave
  601. @if response is 3 then do
  602.   @begin
  603.   @do `v01 is 1
  604.   @show
  605.  
  606.  
  607.   `2The nervous boy asks you to sit down.
  608.  
  609.   `0"Your full name s&sir?"
  610.   @do `s01 is NIL
  611.   @do write
  612. `x`x
  613.   @do readstring 30 `s01
  614.   @show
  615.  
  616.  
  617.   `0"Your current residence?"
  618.  
  619.   @do write
  620. `x`x
  621.   @do readstring 50 `s01
  622.  
  623.   @show
  624.  
  625.  
  626.   `0"Your net income yearly?"
  627.  
  628.   @do write
  629. `x`x
  630.   @do readnum 10
  631.   @if `v40 less 20 then do
  632.   @begin
  633.   @show
  634.  
  635.   @end
  636.  
  637.   @if `v40 more 19 then do
  638.    @begin
  639.    @show
  640.  
  641.  
  642.   `2You giggle to yourself `0-`2 how will they know you just totally lied on
  643.   that last questions?!??  You only made `b19`2 gold pieces last year!
  644.   @end
  645.   @label bankagain
  646.   @show
  647.  
  648.   `0"How much would you like to open your account with?" `2(you have `$$&money`2)
  649.  
  650.   @do write
  651. `x`x
  652.   @do readnum 10 money
  653.   @if `v40 is 0 then do
  654.    @begin
  655.    @show
  656.  
  657.  
  658.   `2You decide you really don't want to open an account with this
  659.   branch.
  660.  
  661. `k
  662.   @do goto bankstart
  663.   @end
  664.  
  665.   @if `v40 > money then do
  666.    @begin
  667.    @show
  668.  
  669.  
  670. `2  You don't have this much!  Try again.
  671.    @do goto bankagain
  672.    @end
  673.  
  674.   @if `v40 < 50 then do
  675.   @begin
  676.   @if money < 50 then do
  677.    @begin
  678.   @show
  679.  
  680.   `2The clerk eyes your shabby clothing distastefully - as if he knew
  681.   this part was coming.
  682.  
  683.   `0"I'm sorry s&sir, we do require `$$50 `2to open an account.  And could
  684.   you please leave the pen on your way out." `2he asks haughtily.
  685.  
  686. `k  `2You carefully return the pen.  `$"I'll be back someday.  And you WILL
  687.   open an account for me then," `2you vow seriously.
  688.  
  689.   `0"Of course you will, s&sir.  Please exit now, remember, the sign does
  690.   say no loitering.  And this means you." `2he says as he points to the
  691.   door.
  692.  
  693. `k
  694. @drawmap
  695. @update
  696. @closescript
  697.    @end
  698.  
  699.   @show
  700.  
  701.  
  702.   `0"S&Sir, `$$50 `0is required to open a new account!"
  703.   @do goto bankagain
  704.   @end
  705.   @do money - `v40
  706.   @do bank + `v40
  707.   @show
  708.  
  709.  
  710.   `0"Very good S&sir!  Your new account has been opened!"
  711.  
  712. `k
  713.   @do goto bank
  714.   @end
  715.  
  716.  
  717. @if response is 1 then do
  718.   @begin
  719.   @do write
  720. `\
  721.   @label deposit
  722.   @do write
  723. `\  `0"Deposit how much, s&sir?"`\`\`x`x
  724.   @do readnum 10 money
  725.   @if `v40 more money then do
  726.   @begin
  727.   @show
  728. `\`\  `2Maybe you left the money in your other pants?  'cuz it sure ain't here.
  729.   @do goto deposit
  730.   @end
  731.   @if `v40 less 0 then do
  732.   @begin
  733.   @show
  734. `\`\  `2No, this isn't happening and you aren't here.
  735.   @do goto withdraw
  736.   @end
  737.  
  738.   @do money - `v40
  739.   @do bank + `v40
  740.   @do goto bankstart
  741.  
  742.   @end
  743.  
  744. @if response is 2 then do
  745.   @begin
  746.   @do write
  747. `\
  748.   @label withdraw
  749.   @do write
  750. `\  `0"Withdraw how much, s&sir?"`\`\`x`x
  751.   @do `p21 is bank
  752.   @do `p21 - 1
  753.   @if `p21 < 0 then `p21 is 0
  754.   @do readnum 10 `p21
  755.   @if `v40 more bank then do
  756.   @begin
  757.   @show
  758. `\`\  `2You kind of don't have that much in your account.  Nice bookeeping!
  759.   @do goto withdraw
  760.   @end
  761.  
  762.   @if `v40 less 0 then do
  763.   @begin
  764.   @show
  765. `\`\  `2No, I don't think so.
  766.   @do goto withdraw
  767.   @end
  768.  
  769.   @if `v40 is bank then do
  770.    @begin
  771.    @show
  772.  
  773.  
  774.   `0"But s&sir!  This will close your account with us, are you sure you wish
  775.   to do that?" `2the clerk chokes.
  776.  
  777.   @do write
  778. `x`x
  779.   @do `v01 is 1
  780.   @choice
  781. Ok, nevermind then.
  782. Yeah.  Get my damn money.
  783. @if response is 1 then goto bank
  784.  
  785.    @end
  786.  
  787.   @do money + `v40
  788.   @do bank - `v40
  789.   @do goto bankstart
  790.   @end
  791.  
  792.  
  793.  
  794. @drawmap
  795. @update
  796.  
  797.  
  798. @#bank2
  799. @do `v01 is 1
  800. @offmap
  801. @do moveback
  802. @label bankstart
  803. @show
  804. `r0`c  `r1 `%4th Bank Of Sosen `r0
  805.  
  806. `2  A young clerk eyes you nervously.
  807.  
  808. @if bank more 0 then do
  809.  @begin
  810.  @show
  811. `2  You are holding `$$&money`2, your account is at `$$&bank`2.
  812.  
  813.  @end
  814.  
  815. @if bank is 0 then do
  816.  @begin
  817.  @show
  818. `2  You currently don't have an account with them.
  819.  
  820.  @end
  821.  
  822. @do write
  823. `x`x
  824. @choice
  825. >&bank 0 Make a deposit.
  826. >&bank 0 Make a withdrawal.
  827. =&bank 0 Apply for an account here.
  828. Leave
  829. @if response is 3 then do
  830.   @begin
  831.   @do `v01 is 1
  832.   @show
  833.  
  834.  
  835.   `2The nervous boy asks you to sit down.
  836.  
  837.   `0"Your full name s&sir?"
  838.   @do `s01 is NIL
  839.   @do write
  840. `x`x
  841.   @do readstring 30 `s01
  842.   @show
  843.  
  844.  
  845.   `0"Your current residence?"
  846.  
  847.   @do write
  848. `x`x
  849.   @do readstring 50 `s01
  850.  
  851.   @show
  852.  
  853.  
  854.   `0"Your net income yearly?"
  855.  
  856.   @do write
  857. `x`x
  858.   @do readnum 10
  859.   @if `v40 less 20 then do
  860.   @begin
  861.   @show
  862.  
  863.   @end
  864.  
  865.   @if `v40 more 19 then do
  866.    @begin
  867.    @show
  868.  
  869.  
  870.   `2You giggle to yourself `0-`2 how will they know you just totally lied on
  871.   that last questions?!??  You only made `b19`2 gold pieces last year!
  872.   @end
  873.   @label bankagain
  874.   @show
  875.  
  876.   `0"How much would you like to open your account with?" `2(you have `$$&money`2)
  877.  
  878.   @do write
  879. `x`x
  880.   @do readnum 10 money
  881.   @if `v40 is 0 then do
  882.    @begin
  883.    @show
  884.  
  885.  
  886.   `2You decide you really don't want to open an account with this
  887.   branch.
  888.  
  889. `k
  890.   @do goto bankstart
  891.   @end
  892.  
  893.   @if `v40 > money then do
  894.    @begin
  895.    @show
  896.  
  897.  
  898. `2  You don't have this much!  Try again.
  899.    @do goto bankagain
  900.    @end
  901.  
  902.   @if `v40 < 50 then do
  903.   @begin
  904.   @if money < 50 then do
  905.    @begin
  906.   @show
  907.  
  908.   `2The clerk eyes your shabby clothing distastefully - as if he knew
  909.   this part was coming.
  910.  
  911.   `0"I'm sorry s&sir, we do require `$$50 `2to open an account.  And could
  912.   you please leave the pen on your way out." `2he asks haughtily.
  913.  
  914. `k  `2You carefully return the pen.  `$"I'll be back someday.  And you WILL
  915.   open an account for me then," `2you vow seriously.
  916.  
  917.   `0"Of course you will, s&sir.  Please exit now, remember, the sign does
  918.   say no loitering.  And this means you." `2he says as he points to the
  919.   door.
  920.  
  921. `k
  922. @drawmap
  923. @update
  924. @closescript
  925.    @end
  926.  
  927.   @show
  928.  
  929.  
  930.   `0"S&Sir, `$$50 `0is required to open a new account!"
  931.   @do goto bankagain
  932.   @end
  933.   @do money - `v40
  934.   @do bank + `v40
  935.   @show
  936.  
  937.  
  938.   `0"Very good S&sir!  Your new account has been opened!"
  939.  
  940. `k
  941.   @do goto bank
  942.   @end
  943.  
  944.  
  945. @if response is 1 then do
  946.   @begin
  947.   @do write
  948. `\
  949.   @label deposit
  950.   @do write
  951. `\  `0"Deposit how much, s&sir?"`\`\`x`x
  952.   @do readnum 10 money
  953.   @if `v40 more money then do
  954.   @begin
  955.   @show
  956. `\`\  `2Maybe you left the money in your other pants?  'cuz it sure ain't here.
  957.   @do goto deposit
  958.   @end
  959.   @if `v40 less 0 then do
  960.   @begin
  961.   @show
  962. `\`\  `2No, this isn't happening and you aren't here.
  963.   @do goto withdraw
  964.   @end
  965.  
  966.   @do money - `v40
  967.   @do bank + `v40
  968.   @do goto bankstart
  969.  
  970.   @end
  971.  
  972. @if response is 2 then do
  973.   @begin
  974.   @do write
  975. `\
  976.   @label withdraw
  977.   @do write
  978. `\  `0"Withdraw how much, s&sir?"`\`\`x`x
  979.   @do `p21 is bank
  980.   @do `p21 - 1
  981.   @if `p21 < 0 then `p21 is 0
  982.   @do readnum 10 `p21
  983.   @if `v40 more bank then do
  984.   @begin
  985.   @show
  986. `\`\  `2You kind of don't have that much in your account.  Nice bookeeping!
  987.   @do goto withdraw
  988.   @end
  989.  
  990.   @if `v40 less 0 then do
  991.   @begin
  992.   @show
  993. `\`\  `2No, I don't think so.
  994.   @do goto withdraw
  995.   @end
  996.  
  997.   @if `v40 is bank then do
  998.    @begin
  999.    @show
  1000.  
  1001.  
  1002.   `0"But s&sir!  This will close your account with us, are you sure you wish
  1003.   to do that?" `2the clerk chokes.
  1004.  
  1005.   @do write
  1006. `x`x
  1007.   @do `v01 is 1
  1008.   @choice
  1009. Ok, nevermind then.
  1010. Yeah.  Get my damn money.
  1011. @if response is 1 then goto bank
  1012.  
  1013.    @end
  1014.  
  1015.   @do money + `v40
  1016.   @do bank - `v40
  1017.   @do goto bankstart
  1018.   @end
  1019.  
  1020.  
  1021.  
  1022. @drawmap
  1023. @update
  1024.  
  1025. @#TRAV
  1026. ;Travel ticket place in ArrisVille
  1027. @do moveback
  1028. @offmap
  1029. @busy
  1030. @show
  1031. `r0`c                           `r1  ArrisVille Travel  `r0
  1032.  
  1033.  
  1034.  
  1035.  
  1036. @buymanager
  1037. 27
  1038. 32
  1039. 33
  1040. @drawmap
  1041. @update
  1042.  
  1043.  
  1044. @#LSTORE
  1045. ;Store in the Sosen Village
  1046. @OFFMAP
  1047. @DO MOVEBACK
  1048.  
  1049.  
  1050. @#nomore
  1051.